if res(LP)=0 then pen(90-posi(LP),LP*3+7,graph(LP)+b$(bp(LP)))
if dis(LP)/100>posi(LP) then dis(LP)=posi(LP)*100+hs2(en(LP))
dis(LP)=dis(LP)+bos
}
if res(LP)>0 then continue
if dis(LP)>8399 then res(LP)=finish:rec(en(LP),finish):w(finish)=LP+1:finish=finish+1:pen(4,LP*3+8,str$(res(LP))):spd(LP)=spd(LP)/3:if finish=2 then ro=382
next
if ro>0 then {
ro=ro+1
if ro=400 then bo=1
}
if bo=1 then {
if ro>450 then LCD=LCD+1
if LCD=2 then {
LCD=0
for LP=0 to 6
if pay(LP)>0 then pay(LP)=pay(LP)-1:coin(LP)=coin(LP)+1:color 9:pen(LP*13+6,29,sasi(coin(LP),4)):color 3
color 9:symbol(448,240,sasi(odds(w(1)-1),3),1,1,1,1,0) /*pen(56,15,sasi(odds(w(1)-1),3))
if w(1)>w(2) then symbol(400,272,n$(w(2))+"-"+n$(w(1)),1,1,1,1,0) else symbol(400,272,n$(w(1))+"-"+n$(w(2)),1,1,1,1,0)
if odds(w(1)-1)>odds(w(2)-1) then symbol(448,272,sasi(odds(w(1)-1)/2*odds(w(2)-1)+(odds(w(2)-1)+ad(en(w(1)-1)))/2,3),1,1,1,1,0) else symbol(448,272,sasi(odds(w(2)-1)/2*odds(w(1)-1)+(odds(w(1)-1)+ad(en(w(2)-1)))/2,3),1,1,1,1,0)
www=str$(w(1))+"-"+str$(w(2))
if w(1)>w(2) then www=str$(w(2))+"-"+str$(w(1))
for LP=0 to 6
for LP4=0 to 21
if b_coin(LP,LP4)>0 then if www=bt$(LP4) then pay(LP)=pay(LP)+odds(LP4)*b_coin(LP,LP4)
if b_coin(LP,LP4)>0 then if LP4<6 then if w(1)=LP4+1 then pay(LP)=pay(LP)+odds(LP4)*b_coin(LP,LP4)
win(LP)=pay(LP)
next
next
for LP=0 to 6
if pay(LP)>0 then {
ww(LP):color 9:penbox(LP*13,28,LP*13+10,30)
if coin(LP)>9999 then pen(LP*13,29," coin:"+str$(coin(LP))) else pen(LP*13,29," coin:"+sasi(coin(LP),4))
color 3
}
next
color 5:pen(30,3,str$(w(2))+" "+h(en(w(2)-1)))
color 3:pen(64,4,graph(w(2)-1))
break
case 438:for LP=0 to 6
if join(LP)=2 then if win(LP)>0 then {
get(ccp(LP)*82,512,ccp(LP)*82+81,601,gm)
put(LP*13*8+2,371,LP*13*8+83,460,gm)
}
next
break
case 444:if finish<4 then ro=443:break
color 5:pen(30,4,str$(w(3))+" "+h(en(w(3)-1)))
color 3:pen(70,4,graph(w(3)-1))
break
case 456:if finish<5 then ro=455:break
color 5:pen(30,5,str$(w(4))+" "+h(en(w(4)-1)))
color 3:pen(76,4,graph(w(4)-1))
break
case 468:if finish<6 then ro=467:break
color 5:pen(30,6,str$(w(5))+" "+h(en(w(5)-1)))
color 3:pen(82,4,graph(w(5)-1))
break
case 480:if finish<7 then ro=479:break
color 5:pen(30,7,str$(w(6))+" "+h(en(w(6)-1)))
color 3:pen(88,4,graph(w(6)-1))
break
case 547:finish=8
for LP=0 to 6
if pay(LP)>0 then {
coin(LP)=coin(LP)+pay(LP):pay(LP)=0
color 9:penbox(LP*13,28,LP*13+10,30)
if coin(LP)>9999 then pen(LP*13,29," coin:"+str$(coin(LP))) else pen(LP*13,29," coin:"+sasi(coin(LP),4))
color 3
}
next
endswitch
}
if finish=8 then {
comp=0
for LP=0 to 5
if posi(LP)<95 then comp=1
next
if comp=0 then break
}
endwhile
for LP=0 to 5
points(en(LP))=0
for LC=0 to 5
if hz(en(LP),LC)=1 then points(en(LP))=points(en(LP))+10
if hz(en(LP),LC)=2 then points(en(LP))=points(en(LP))+6
if hz(en(LP),LC)=3 then points(en(LP))=points(en(LP))+3
if hz(en(LP),LC)=4 then points(en(LP))=points(en(LP))+1
case 4:TT=3:palet(3,rgb(crgb(6),crgb(7),crgb(8))):break
endswitch
}
SH=SH+1:if SH=8 then SH=0
if stars=1 then bluebells(SH)
ha$=inkey$(0)
if ha$<>"" then break
endwhile
TT=0
palet(3,rgb(crgb(6),crgb(7),crgb(8)))
as=ha$
endfunc
func bluebells(N)
if sls(N,4)>0 then {
if sls(N,1)+sls(N,5)<>100 then circle(383,200,sls(N,1)+sls(N,5),0,sls(N,0),sls(N,0),256)
sls(N,4)=sls(N,4)+1
sls(N,1)=sls(N,1)+smv(sls(N,3),sls(N,1)/13)
if sls(N,1)+sls(N,5)>109 then if sls(N,0)>194 then if sls(N,0)<396 then sls(N,4)=0:sls(N,1)=0
if sls(N,1)+sls(N,5)>80 then if sls(N,0)>220 then if sls(N,0)<320 then sls(N,4)=0:sls(N,1)=0
if sls(N,1)+sls(N,5)>sls(N,2) then sls(N,4)=0:sls(N,1)=0
if sls(N,1)>0 then if sls(N,1)+sls(N,5)>100 then circle(383,200,sls(N,1)+sls(N,5),15,sls(N,0),sls(N,0),256) else circle(383,200,sls(N,1)+sls(N,5),2,sls(N,0),sls(N,0),256)
HAK=HAK+3
}
if sls(N,4)=0 then {
sls(N,5)=0
if rnd()*3<1 then sls(N,5)=rnd()*70
sls(N,0)=rnd()*360
sls(N,3)=rnd()*3
sls(N,2)=129:if sls(N,5)=0 then if rnd()*8<1 then sls(N,2)=rnd()*70+60
sls(N,4)=-rnd()*60-4
}
if sls(N,4)<0 then sls(N,4)=sls(N,4)+1:if sls(N,4)=0 then sls(N,4)=1:circle(383,200,sls(N,1)+sls(N,5),2,sls(N,0),sls(N,0),256)
if g(mm+8)=1 then circle(g(mm+1)+1,g(mm+2),g(mm+3),g(mm+7),g(mm+4),g(mm+5),cc)
mm=mm+9
break
case 11:/* LINE(NORMAL)
line(g(mm+1),g(mm+2),g(mm+3),g(mm+4),g(mm+5))
if g(mm+6)=1 then line(g(mm+1)+1,g(mm+2),g(mm+3)+1,g(mm+4),g(mm+5))
nnx=g(mm+3)
nny=g(mm+4)
mm=mm+7
break
case 12:/* PAINT
paint(g(mm+1),g(mm+2),g(mm+3))
mm=mm+4
break
endswitch
wm=wm+1
endwhile
return(wm)
endfunc
func str come(n,nb)
str s
switch n
case 0:/* samuel
switch nb
case 0:s="当然だよ、俺は探測長なんだもの":break
case 1:s="次はグワッともうけたいねェ":break
case 2:s="新しい装置買おうぜ、船長!":break
case 3:s="グェフー、八百長なのかもなコレ!":break
case 4:s="ヤミ市ですか?俺が案内しますよ。すぐそこだけどね。":break
case 5:s="ヘエそりゃ大変・・。じゃあ船長、行きますよ。":break
case 6:s="武器が無いとなると、もっと機動力が必要かな。宇宙船かっぱらうとか・・あッ冗談です。":break
case 9:s="はらへった":break
case 10:s="グェフー、メシクレメシクレ":break
endswitch
break
case 1:/*sheckley
switch nb
case 0:s="運がよかった":break
case 1:s="なんて不毛なレースなのだろう":break
case 2:s="夢のようだ":break
case 3:s="早く帰りましょう。風邪ひきますよ":break
case 4:s="なるほど、強引に抜け出すべき頃合かもしれません。ただ、現在の装備でどこまでやれるか・・・・。":break
case 9:s="(グウー)がまんがまん。":break
case 10:s="なかなか食事時間が来ないのですが":break
endswitch
break
case 2:/*marion
switch nb
case 0:s="なかなかのもんでしょう":break
case 1:s="だめでした・・・":break
case 2:s="フフフッ、ご覧なさいな船長?":break
case 3:s="えェッと・・・・":break
case 4:s="ロクトパス、離陸体制に入ります。よろしいですか?":break
case 9:s="おなかが減りましたね":break
case 10:s="船長、キッチンにカエルが!!まあ無断で!":break
endswitch
break
case 3:/*bruce
switch nb
case 0:s="まだ上を狙えますよ":break
case 1:s="パッとしないっスー":break
case 2:s="故郷のトマト畑を思い出します":break
case 3:s="もう帰るって?":break
case 4:s="おっ、待ってました!@いよいよ打って出るわけだ!":break
case 9:s="(グーウ)・・船長、食事にしませんか?":break
case 10:s="さあ、今のうちに何か食べましょう!":break
endswitch
break
case 4:/*fredrick
switch nb
case 0:s="ホクホク":break
case 1:s="あーあ。":break
case 2:s="燃料買って出発しようよ":break
case 3:s="そんな目で見るなよォ・・・・":break
case 4:s="セーブしますか?":break
case 5:s="全然関係ないけど待ってー。@ゲームデータのセーブは大気圏に突入する時にしかできません。セーブができない時もあります。それじゃあ。":break
case 9:s="なにか食べたいな":break
case 10:s="(ギュウ)船長のおに、いけずー":break
endswitch
break
case 5:/*alice
switch nb
case 0:s="ミノーちゃん、ワンワン、またね":break
case 1:s="あー面白かった!":break
case 2:s="作戦にかかりましょう、船長":break
case 3:s="サミュエルでも走らせましょうか":break
case 9:s="おなかすいちゃったー":break
case 10:s="ごはん!":break
endswitch
break
case 6:/*david
switch nb
case 0:s="カンが冴えてたよな":break
case 1:s="これだけか・・":break
case 2:s="やったぜー船長。見ろコレ":break
case 3:s="キューむかつく!":break
case 4:s="【フランクの作戦案に対する意見】@船長、あの戦闘機乗りはただ壮大に暴れたい気持ちだけで先の作戦案を提出したものと思われます。未知の星域にあって私達は、反動的な振る舞いは避けねばいけません。「積み荷」を確実に取り戻すためにも、慎重な決断を期待します。":break
case 5:s="食糧の積み込みは完了!":break
case 9:s="みんなー、はらへってないか?":break
case 10:s="ガマン大会は別の日にしような船長・・・・":break
endswitch
break
case 7:/*arthur
switch nb
case 0:s="勝ったぞ、やれやれだ":break
case 1:s="わしは機械整備の方が性に合っとる":break
case 2:s="ガハハハ、夕食は豪勢に行かんとな":break
case 3:s="まともに走れんのか連中は・・・・":break
case 4:s="修理がまだ途中なんだが、本当に出るつもりか?":break
case 9:s="機関室よりブリッジへ・・メシはまだかあ?":break
case 10:s="仕事に身が入らんなあ・・メシはまだかあ?":break
endswitch
break
case 8:/*niel
switch nb
case 0:s="とっても簡単":break
case 1:s="そもそも奴らはナニモン?":break
case 2:s="ギャンブルまんざい!":break
case 3:s="プンスカ":break
case 4:s="船長。この星について少し分かりましたのでご報告します。このバケオックーは非常に複雑な軌道を描いて、星系じゅうを迷子のヘビみたいに進んでます。こういうのを遊星っていうんですか?":break
case 5:s="さらに重力圏不発雲が異様に濃く、通常の離脱パックではとても大気圏外までもちませんね。4倍はキック力が要ります。そのレベルのパッケージといえば、25連発の「ゲンジン」が有名ですけど・・、ここには無いって言われまして・・。ヤミ市でものぞいてみますか?":break
case 6:s="離陸準備に移ります。@いいですか船長?":break
case 9:s="チョコバットか切れてきた・・・・":break
case 10:s="停止寸前・・食事にしましょう":break
endswitch
break
case 9:/*frank
switch nb
case 0:s="無事帰艦しました!":break
case 1:s="爆発パワー野郎は御免だね":break
case 2:s="アンタが大将、俺、撃墜王!":break
case 3:s="二度と来るかって思いますよ":break
case 4:s="【ポーストン邸襲撃作戦・案】@理不尽な罪状により我々を軟禁処分にしたポーストン氏に対し、我々は抵抗を試みるべきです。まずは奴を問いただすため、強引ですがこちらから出向いて接触をはかる必要があります。簡単にいえば襲撃です(以下略)":break
case 5:s="イヤッホーキャプテン、@出撃ですか?":break
case 9:s="おなかペコペコだよ":break
case 10:s="うわー、めまいがする!":break
endswitch
break
endswitch
return(s)
endfunc
func str itis(n)
str R
switch n
case 0:R="アキネス粒子増幅":break /* ...............推進機関各種
case 1:R="25連発「玄人」":break
case 2:R="MOM130プロプ":break
case 3:R="4連発「蛾煉瓦」":break
case 4:R="盆栽推進機マルニ":break
case 5:R="NAM-010モッカイロ":break
case 6:R="11連発「サク」":break
case 7:R="キックバッカー":break
case 8:R="マハー2号戦車":break
case 9:R="":break
case 10:R="合成斥力音波駆動":break
case 11:R="ガビッジ座反応軸推進":break
case 12:R="流星フック「かに」":break
case 13:R="EPH17Cヘルグリラー":break /* ................ここより拡張装置
case 14:R="三能マニピュレータ":break
case 15:R="チャッカさん":break
case 16:R="ガル偵察頭脳ロケット":break
case 17:R="寸止め式手刀デコイ":break
case 18:R="船外目玉プレート":break
case 19:R="ヒステリア・7cmレンチ":break /* ................ここよりアイテム
case 20:R="琴弓「ギャラクシー」":break
case 21:R="ヘボウ小型音響高射砲":break
case 22:R="サバイバル・フルート":break
case 23:R="打撃楽器「レゴッス」":break
endswitch
return(R)
endfunc
func str doc(n)
str R
switch n
case 0:R="諸君、元気そうでなりよりだ。さて我々は何も君達をそこへ幽閉しようというのではない。個人的には先の件を忘れても良いと思っている。が、君達は今、全エミサイスの過半数の住民から敵意を買っている。(英雄)の葬式を台無しにした野蛮人を叩けという声が強いのだ。":break
case 1:R="かれらは皆、ひどく落胆し、いささか不機嫌でもある。我らの(英雄)は星系外で事故死したのだよ・・・・。不変政府では貴船の身元確認に手をやいているところだ。くれぐれも今は静かにしておき給え。身の保証はできない。なお、押収された積み荷に関しては私の管轄外だ。":break
case 2:R="私としてはこの文書を送るのが精一杯である。バケオックーは君達にとって安全な監獄となるだろう。不変大佐 G・7・ポーストン 追記。運が悪いといえば、あれは最悪だったな。君達のあの曲ときたら・・・・。今後のためにも、あれは破棄しておくことをすすめる。":break
case 3:R="エミサイス星系にて":break
case 4:R="大きなお葬式があり":break
case 5:R="星という星が参列する中":break
case 6:R="英雄の棺が運ばれた":break
case 7:R="そんな最中に":break
case 8:R="宇宙船ロクトパス号は":break
case 9:R="どんちゃんさわぎで航行":break
case 10:R="何も知らずに通過した":break
case 11:R="なんたる壮大な無礼行為かと":break
case 12:R="戦闘挺につかまえられた":break
case 13:R="":break
case 14:R="放り込まれたのは":break
case 15:R=" 競星《バケオックー》":break
case 16:R="":break
case 17:R="レースで儲けようか、諸君!":break
case 18:R="そしてまた宇宙に出よう・・":break
case 19:R="・・・・だから、連中はずっとここに俺たちを閉じ込めておくつもりなんだよ。じっとしてたって何にもなりゃしないさ。一発お見舞いしてやるんだ!":break
case 20:R="どのような一発?@ポルカ粒子砲を取り上げられたのに、どうやって・・・・":break
case 21:R="手はある。あの時かけた曲をもう一回流そう。連中をおびき出すことができる筈だ。そしてなにか・・":break
case 22:R="待った!あの時、なんの曲をかけたのか、覚えてるか?":break
case 23:R="・・・・・・・・。@バカ笑いしていたような・・・・@叫びながら小走りしてたような":break
case 24:R="ああそうだった。確かコルク栓をまとめて便所の隅に蹴り込んでいたんだ":break
case 25:R="そんなはずは・・。わたしはフライパンの前に行って、フォーキラン誘導弾との類似性検証にコルク栓を占拠していたのだ・・":break
case 30:R="【重力圏不発雲】@人工のガス雲。独立した情報認識機能があり、無登録もしくは無許可の飛行物体に反応し、物体の上昇力に負担を掛ける性質をもつ。外部からの進入には干渉しない。これの登場により、惑星間貿易と治安責任問題による混乱は基本的には解決した。":break
case 31:R="【放送波推進】@銀河全域をカバーする規模で運用されるローカル放送中継システムを利用した宇宙船の推進機構を指す。ごく弱いレンジの放送を発信し、それが一定以上の人気を獲得すると、指向性の補強ビームが届く。これを推進力に変換する、高度な技術。違法。":break
case 32:R="【宇宙時間】@ロクトパス号のブリッジにおける船内時間区分は、立時、隣時、影時、酸時、光時、餅時、電時、眠時、禅時の9つからなる。それぞれ「LRASKHDMZ」と表記することもある。提唱者はマブチモー星の植物学者で、当船のクルーはアレンジをして使用。":break
case 33:R="":break
case 34:R="":break
case 35:R="":break
case 36:R="":break
/* これよりミッション ***
case 51:R="#0なにか・・・・あれっ#2モトオラ級の未確認船、後方より接近。いやな速度・・%#0ぶつける気だ!#3船底フラスコ引っ込め!緩衝死角調整、@・・ヒエー%#5ぶつかるの?#8そうです、ぶつかってくるんです!つかまって!%#2友好信号応答なし!#6だろうナァ・・・・ウハハハ・・":break
case 52:R="C5海賊@C7動くな!%#0ワオ、素早いねC5海賊@C7改造しやすいマシンってのは、玄関が多いもんだ。まあ、@俺達の船もそうだが。さて・・・・船長は、あんたか%C5海賊BC7@クルーの命はあんた次第。用が済めば我々は黙って出てくぜ。・・この船にある盆栽を出しな!":break
case 53:R="#6ぼ・・盆栽?#3ボンサイとは何だ、ニール%#8「盆栽」とは、植物を観賞用に手を加えつつ、鉢の上で@育てるという園芸の様式らしいですね#0ヘエ、そんなの載っけてたか?%#2ロビーのテーブル脇にある太陽ナッツの木じゃないかしら#8なるほど、あれでしたか、盆栽は":break
case 54:R="C5海賊@C7・・・・テメェら、チョロチョロするんじゃねえ!@C5海賊B@C7・・・・おい、あったぞ。これか・・・・?@何か妙な気がするが・・・・?%C5シオミリン@C7そいつじゃないな。センサーは別の盆栽に反応している・・@捜し出せ!@C5海賊BC7へいさー":break
case 55:R="#0あんたが大将?@C5シオミリン@C7・・・・そんなところだ。我々は海賊船レッド・ゾーンの者・・@お前達があの時の葬式に乱入したチンドン屋か?@#6冗談じゃないよ!通りすぎただけなんだ・・・・@C5シオミリンC7@だろうな。そのおかげで、こっちはやり易くなった":break
case 56:R="#2?@C5シオミリン@C7あの星は、お前達に照準を移したのだからな@ゴーラム、マズル、盆栽はまだ見つからないのか!?@C5海賊C7@ハ、ハイ・・こいつら、隠し持ってるんじゃないすか?@C5海賊BC7@へたな抵抗してっと、ぶっこわすぜ!":break
case 57:R="#3もうじゅうぶん壊れてるけど、@盆栽に覚えがないからどうしようもないよ・・%C5Arthur:<機関室> C7@じつは・・・・わしの鉢植えが部屋にあるんだが・・・・@C5海賊たちC7@それだ!@よし、そこのカエル、奴の部屋に案内しろ":break
case 58:R="C5海賊C7@旦那、これですぜ%C5シオミリンC7@これか?・・ふむ、スキャナにかけてみよう。(ピコー)@C5携帯BS・音声出力C7@ウオッ?この・・伐採のようでいて、抑制の利いた荒々しさ・・・・左右非対称性の過剰なる自然。みずみずしい活着。78得点。":break
case 59:R="C5海賊BC7@ヒャーッッフォッ!C5@海賊C7@こいつは(銀河)級ですよ、恐らく%C5@シオミリンC7@そうとは限らん。念のためにそこの太陽ナッツも持って帰るぞ@・・・・では諸君、お騒がせしたな@わたしは、シオミリン。《レッド・ゾーン》艦長だ。@また逢おう。":break